Свойство возвращает номер позиции текущего символа в файле TextStream. Только для чтения.

object.Column

Параметры
object объект типа TextStream

Пример
Следующий код иллюстрирует использование Column свойства:

Function GetColumn
  Const ForReading = 1, ForWriting = 2
  Dim fso, f, m
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.Write "Hello world!" 
  f.Close
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  m =  f.ReadLine
  GetColumn = f.Column
End Function